home *** CD-ROM | disk | FTP | other *** search
- object AddressBookForm: TAddressBookForm
- Left = 282
- Top = 181
- Width = 664
- Height = 477
- HelpContext = 1508
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- Caption = 'Address Book'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = AddressMenu
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object hzSplitter: TSplitter
- Left = 145
- Top = 29
- Width = 3
- Height = 383
- Cursor = crHSplit
- Beveled = False
- end
- object AddressToolbar: TToolBar
- Left = 0
- Top = 0
- Width = 656
- Height = 29
- ButtonHeight = 25
- ButtonWidth = 26
- EdgeBorders = [ebTop, ebBottom]
- Flat = True
- Images = ImagesForm.TMImages
- TabOrder = 0
- Wrapable = False
- object tbClose: TToolButton
- Left = 0
- Top = 0
- Width = 26
- Height = 25
- Hint = 'Close Address Book'
- Caption = 'Close'
- ImageIndex = 0
- ParentShowHint = False
- ShowHint = True
- OnClick = MainFileCloseClick
- end
- object tbSep1: TToolButton
- Left = 26
- Top = 0
- Width = 8
- Height = 25
- Caption = 'tbSep1'
- ImageIndex = 9
- Style = tbsSeparator
- end
- object tbAddCard: TToolButton
- Left = 34
- Top = 0
- Width = 26
- Height = 25
- Hint = 'Add a Card'
- Caption = 'tbAddCard'
- ImageIndex = 1
- ParentShowHint = False
- ShowHint = True
- OnClick = MainFileNewCardClick
- end
- object tbEditCard: TToolButton
- Left = 60
- Top = 0
- Width = 26
- Height = 25
- Hint = 'Edit Selected Card'
- Caption = 'tbEditCard'
- ImageIndex = 3
- ParentShowHint = False
- ShowHint = True
- OnClick = tbEditCardClick
- end
- object tbSep2: TToolButton
- Left = 86
- Top = 0
- Width = 8
- Height = 25
- Caption = 'tbSep2'
- ImageIndex = 3
- Style = tbsSeparator
- end
- object tbAddGroup: TToolButton
- Left = 94
- Top = 0
- Width = 26
- Height = 25
- Hint = 'Add a Group'
- Caption = 'tbAddGroup'
- ImageIndex = 4
- ParentShowHint = False
- ShowHint = True
- OnClick = tbAddGroupClick
- end
- object tbEditGroup: TToolButton
- Left = 120
- Top = 0
- Width = 26
- Height = 25
- Hint = 'Edit Selected Group'
- Caption = 'tbEditGroup'
- ImageIndex = 5
- ParentShowHint = False
- ShowHint = True
- OnClick = tbEditGroupClick
- end
- object tbSep3: TToolButton
- Left = 146
- Top = 0
- Width = 8
- Height = 25
- Caption = 'tbSep3'
- ImageIndex = 6
- Style = tbsSeparator
- end
- object tbDelete: TToolButton
- Left = 154
- Top = 0
- Width = 26
- Height = 25
- Hint = 'Delete'
- Caption = 'tbDelete'
- ImageIndex = 6
- ParentShowHint = False
- ShowHint = True
- OnClick = tbDeleteClick
- end
- object tbSep4: TToolButton
- Left = 180
- Top = 0
- Width = 8
- Height = 25
- Caption = 'tbSep4'
- ImageIndex = 7
- Style = tbsSeparator
- end
- object tbPrint: TToolButton
- Left = 188
- Top = 0
- Width = 26
- Height = 25
- Hint = 'Print'
- Caption = 'tbPrint'
- ImageIndex = 7
- ParentShowHint = False
- ShowHint = True
- OnClick = tbPrintClick
- end
- object tbSep5: TToolButton
- Left = 214
- Top = 0
- Width = 8
- Height = 25
- Caption = 'tbSep5'
- ImageIndex = 8
- Style = tbsSeparator
- end
- object tbHelp: TToolButton
- Left = 222
- Top = 0
- Width = 26
- Height = 25
- Hint = 'Help'
- Caption = 'tbHelp'
- ImageIndex = 8
- ParentShowHint = False
- ShowHint = True
- OnClick = MainHelpContentsClick
- end
- end
- object sbAddressBook: TStatusBar
- Left = 0
- Top = 412
- Width = 656
- Height = 19
- Panels = <>
- SimplePanel = True
- SimpleText = 'Welcome to the TeleMagic Address Book!!!'
- end
- object tvAddressGroups: TTreeView
- Left = 0
- Top = 29
- Width = 145
- Height = 383
- ShowRoot = False
- ReadOnly = True
- HideSelection = False
- Indent = 19
- OnChange = tvAddressGroupsChange
- Align = alLeft
- TabOrder = 2
- OnEnter = tvAddressGroupsEnter
- OnKeyDown = lvAddressCardsKeyDown
- PopupMenu = AddressListPopup
- ParentShowHint = False
- ShowHint = False
- end
- object AddressCardPanel: TPanel
- Left = 148
- Top = 29
- Width = 508
- Height = 383
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 3
- object DirectoryTabs: TTabControl
- Left = 0
- Top = 362
- Width = 508
- Height = 21
- Hint = 'Select a tab to see only those alphabetical listings'
- Align = alBottom
- HotTrack = True
- ParentShowHint = False
- ShowHint = True
- TabHeight = 15
- TabIndex = 0
- TabOrder = 0
- TabPosition = tpBottom
- Tabs.Strings = (
- 'All'
- 'A'
- 'B'
- 'C'
- 'D'
- 'E'
- 'F'
- 'G'
- 'H'
- 'I'
- 'J'
- 'K'
- 'L'
- 'M'
- 'N'
- 'O'
- 'P'
- 'Q'
- 'R'
- 'S'
- 'T'
- 'U'
- 'V'
- 'W'
- 'X'
- 'Y'
- 'Z')
- TabWidth = 17
- OnChange = DirectoryTabsChange
- end
- object lvAddressCards: TTMListView
- Left = 0
- Top = 0
- Width = 508
- Height = 362
- Align = alClient
- OnDblClick = lvAddressCardsDblClick
- Columns = <
- item
- Caption = 'Name'
- Width = 150
- end
- item
- Caption = 'E-mail Address'
- Width = 150
- end
- item
- Caption = 'Home Phone'
- Width = 125
- end
- item
- Caption = 'Business Phone'
- Width = 125
- end>
- ReadOnly = True
- HideSelection = False
- MultiSelect = True
- RowSelect = True
- OnChange = lvAddressCardsChange
- OnColumnClick = lvAddressCardsColumnClick
- OnCompare = lvAddressCardsCompare
- OnEnter = lvAddressCardsEnter
- PopupMenu = AddressListPopup
- SortType = stData
- TabOrder = 1
- ViewStyle = vsReport
- OnKeyDown = lvAddressCardsKeyDown
- SubImages = False
- end
- end
- object AddressMenu: TMainMenu
- Left = 504
- object MainFile: TMenuItem
- Caption = '&File'
- OnClick = MainFileClick
- object MainFileNew: TMenuItem
- Caption = '&New'
- object MainFileNewCard: TMenuItem
- Caption = '&Card...'
- OnClick = MainFileNewCardClick
- end
- object MainFileNewGroup: TMenuItem
- Caption = '&Group...'
- OnClick = MainFileNewGroupClick
- end
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object MainFileDelete: TMenuItem
- Caption = '&Delete'
- OnClick = MainFileDeleteClick
- end
- object MainFileProperties: TMenuItem
- Caption = '&Properties...'
- OnClick = MainFilePropertiesClick
- end
- object MainFileSep1: TMenuItem
- Caption = '-'
- end
- object MainFileClose: TMenuItem
- Caption = '&Close'
- OnClick = MainFileCloseClick
- end
- end
- object MainView: TMenuItem
- Caption = '&View'
- object MainViewToolbar: TMenuItem
- Caption = '&Toolbar'
- Checked = True
- OnClick = MainViewToolbarClick
- end
- object MainViewDirectoryTabs: TMenuItem
- Caption = '&Directory Tabs'
- Checked = True
- OnClick = MainViewDirectoryTabsClick
- end
- object MainViewStatusBar: TMenuItem
- Caption = '&Status Bar'
- Checked = True
- OnClick = MainViewStatusBarClick
- end
- end
- object MainHelp: TMenuItem
- Caption = '&Help'
- object MainHelpContents: TMenuItem
- Caption = '&Help Topics...'
- OnClick = MainHelpContentsClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object AboutTeleMagicInternetMail1: TMenuItem
- Caption = '&About TeleMagic Internet Mail...'
- OnClick = AboutTeleMagicInternetMail1Click
- end
- end
- end
- object AddressListPopup: TPopupMenu
- OnPopup = AddressListPopupPopup
- Left = 180
- Top = 72
- object PopupNewCard: TMenuItem
- Caption = 'New Card...'
- OnClick = MainFileNewCardClick
- end
- object PopupNewGroup: TMenuItem
- Caption = 'New Group...'
- OnClick = MainFileNewGroupClick
- end
- object PopupSep1: TMenuItem
- Caption = '-'
- end
- object PopupAddToGroup: TMenuItem
- Caption = 'Add to Group...'
- OnClick = PopupAddToGroupClick
- end
- object PopupRemoveFromGroup: TMenuItem
- Caption = 'Remove from Group'
- OnClick = PopupRemoveFromGroupClick
- end
- object PopupSep2: TMenuItem
- Caption = '-'
- end
- object PopupSendMail: TMenuItem
- Caption = 'Send Mail...'
- OnClick = PopupSendMailClick
- end
- object PopupSep3: TMenuItem
- Caption = '-'
- end
- object PopupDelete: TMenuItem
- Caption = 'Delete'
- OnClick = MainFileDeleteClick
- end
- object PopupProperties: TMenuItem
- Caption = 'Properties...'
- OnClick = MainFilePropertiesClick
- end
- end
- end
-